﻿Imports System.Data
Imports System
Imports System.Collections.Generic
Imports BLGestionProyecto.BLGPProyectoActividad
Partial Class Controls_wctlActividadListar
    Inherits System.Web.UI.UserControl
    Dim cBLGPActividad As New BLGestionProyecto.BLGPActividad

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lblMensaje.Text = ""
        Session("CODUSUARIO") = 4
        If Not Page.IsPostBack Then
            Try
                If Not Request.QueryString("RSP") = Nothing Then
                    lblMensaje.Text = clsGPUtilidades.fuMensajeUsuario(Request.QueryString("RSP"))
                End If
                pollenarCombos()
                If Not Request.QueryString("CODSUBLOS") = Nothing Then
                    btnConsultar_Click(Nothing, Nothing)
                End If
                clsGPUtilidades.poCreateConfirmBox(btnAnular, clsGPEstructuras.enmMSGalUsuario.GPMSGSEGUROELIMREGISTRO)
            Catch ex As Exception
                lblMensaje.Text = ex.Message
            End Try
        End If
    End Sub

    Sub pollenarCombos()
    End Sub


    Protected Sub btnConsultar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConsultar.Click
        Try
            Dim lDt As DataTable = cBLGPActividad.fuBLListarActividad(txtDescripcion.Text)
            dgvListadoActividades.DataSource = lDt
            dgvListadoActividades.DataBind()
        Catch ex As Exception
            lblMensaje.Text = ex.Message
        End Try
    End Sub

    Protected Sub btnNuevo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        If Not fuValidarDatosalSeleccionar(clsGPEstructuras.enmEstadoDocumentos.GPESTNUEVO) Then
            Exit Sub
        End If
        Session("EDITAR1") = clsGPEstructuras.enmEstadoDocumentos.GPESTNUEVO
        Response.Redirect(String.Format("wfrmActividad.aspx?Codigo={0}", ""))
    End Sub

    Function fuValidarDatosalSeleccionar(ByVal penm As clsGPEstructuras.enmEstadoDocumentos) As Boolean
        Dim lbErr As Boolean
        Try
            lblMensaje.Text = ""
            Select Case penm
                Case clsGPEstructuras.enmEstadoDocumentos.GPESTNUEVO
                Case clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR
                    If dgvListadoActividades.GetSelectedFieldValues("actcodActividad").Count = 0 Then
                        lblMensaje.Text &= "* Debe Seleccionar una Actividad de la Lista</BR>"
                        lbErr = True
                    End If
            End Select
            Return Not lbErr
        Catch ex As Exception
            lblMensaje.Text = Err.Description
        End Try
    End Function

    Protected Sub btnEditar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEditar.Click
        If Not fuValidarDatosalSeleccionar(clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR) Then
            Exit Sub
        End If
        Dim lLst As List(Of Object) = dgvListadoActividades.GetSelectedFieldValues("actActividadID")

        Dim liActActividadID As String = lLst.Item(0).ToString

        Session("EDITAR1") = clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR
        Response.Redirect(String.Format("wfrmActividad.aspx?CODACT={0}", liActActividadID.ToString))
    End Sub

    Protected Sub btnAnular_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAnular.Click
        Dim lBLGPActividad As New BLGestionProyecto.BLGPActividad
        Dim lLst As List(Of Object) = dgvListadoActividades.GetSelectedFieldValues("actActividadID")
        Dim liActActividadID As String = lLst.Item(lLst.Count - 1).ToString

        If lBLGPActividad.fuBLEliminarActividad(liActActividadID, Session("CODUSUARIO")) = False Then
            lblMensaje.Text = clsGPUtilidades.fuMensajeUsuario(clsGPEstructuras.enmMSGalUsuario.GPMSGERRELIMINAR)
            Exit Sub
        End If
        lblMensaje.Text = clsGPUtilidades.fuMensajeUsuario(clsGPEstructuras.enmMSGalUsuario.GPMSGELIMINACIONOK)
        btnConsultar_Click(Nothing, Nothing)
    End Sub


    'protected override void InitializeCulture() {
    '    CultureInfo c = new CultureInfo(Thread.CurrentThread.CurrentCulture.LCID);
    '    c.DateTimeFormat.ShortDatePattern = "yyyy/MM/dd";
    '    Thread.CurrentThread.CurrentCulture = c;
    '    base.InitializeCulture();
    '}

    Protected Sub btnRetornar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRetornar.Click
        Response.Redirect("WfrmProyectoListar.aspx")
    End Sub
End Class